home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / tpballs.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  556b  |  25 lines
  1. /* Draw Balls Background */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. if pos('DigiPaint',show(ports))=0 then do
  5.   say "Can't find ToasterPaint!"
  6.   exit
  7. end
  8.  
  9. address 'DigiPaint' /* Tell ARexx where commands go */
  10. 'Hvof'          /* Set radial gradient blend off */
  11. 'Hvar'
  12. 'Potv' $4000    /* Set hotspot 1/4 from top */
  13. 'Poth' $4000    /* Set hotspot 1/4 from left */
  14. 'Rang'
  15. 'Drci'
  16. 'Flon'
  17. do y=20 to 460 by 40 
  18.   do x=36 to 720 by 40
  19.     'Pend' x y
  20.     'Penu' x+20 y
  21.   end
  22. end
  23. 'Shco'          /* Render to Program Out */
  24. exit            /* Bye bye! */
  25.